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A  TEST  METHOD  FOR  MEASURING  CORONA  INCEPTION  VOLTAGE 
FOR  TRANSDUCER  AUTOTRANSFORMERS 


INTRODUCTION 


A  small  but  significant  percentage  of  failures  in  high-power  fleet  sonar 
transducers  are  due  to  breakdown  of  electrical  insulating  or  dielectric 
materials.  A  physical  phenomenon  that  contributes  to  these  failures  is  corona 
which  is  a  discharge  of  electricity  caused  by  ionization  of  the  surrounding 
medium  when  the  voltage  gradient  exceeds  a  certain  critical  value.  The 
frequency  of  discharge  is  above  75  kHz.  At  high  operating  voltages  corona 
occurs  before  dielectric  breakdown,  but  will,  in  time,  deteriorate  insulating 
materials  and  cause  dielectric  failure. 

One  of  the  components  in  a  typical  high-power  transducer  that  is 
susceptible  to  corona  is  the  autotransformer  (tapped  power  inductor)  which  is 
used  to  augment  tuning,  transmit  voltage  response,  and  transmit  impedance. 

These  transformers  usually  operate  at  secondary  voltages  in  the  range  of  1500 
V,  but  may  be  as  high  as  5000  to  6000  V  in  some  instances.  A  suitable  corona 
test  is  valuable  in  determining  if  a  particular  transformer  design  or 
production  transformer  has  corona  at  relatively  low  voltages.  Such  a  situation 
may  be  indicative  of  poor  terminal  design,  voids  or  air  pockets  in  the  coil 
coatings  or  potting  compounds,  and  an  indication  of  premature  failure  in  the 
normal  operating  environment. 

This  report  covers  the  development  of  a  corona  inception  voltage  (CIV)  test 
that  can  be  applied  as  a  qualification,  quality  control,  or  quality  assurance 
provision  in  a  transducer  autotransformer  specification. 

BACKGROUND 


In  1987,  General  Electric  (GE)  and  Raytheon  were  awarded  production 
contracts  to  fabricate  TR-317(  )  sonar  transducers  according  to  a  government 
developed  Fabrication  Specification  Package  (FSP) .  The  FSP  contains 
requirements  that  are  deemed  necessary  for  the  composite  transducer  to  achieve 
a  15-year  service  life.  One  such  requirement  was  a  corona  specification  for 
the  autotransformer.  As  a  part  of  the  FSP  development,  certain  critical 
assemblies  of  the  transducer,  which  included  the  transformer,  were  procured  by 
sample  buys  (in  small  quantities)  to  proof  the  FSP  drawings.  Because  of 
limited  financial  resources  in  the  years  prior  to  the  TR-317(  )  production 
contract  award,  some  of  the  sample  buys  were  still  in  progress  at  the  time  of 
contract  award. 
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During  the  transformer  sample  buy,  a  transformer  contractor  (Harder,  Inc.) 
expressed  concern  about  the  validity  of  the  corona  requirements  and  the  test 
method  specified  in  the  transformer  drawings  [1].  The  concerns  were:  (1)  the 
validity  of  a  quantitative  limit  and  measure  of  corona;  and  (2)  the 
effectiveness  of  the  specified  filter  circuit  in  attenuating  the  fundamental 
frequencies  and  passing  the  frequencies  associated  with  corona.  After 
consultation  with  the  Naval  Sea  Systems  Command  (NAVSEA)  it  was  determined  that 
Harder’s  concerns  were  valid.  These  concerns  led  the  TR-317(  )  production 
contractors,  with  NAVSEA  concurrence,  to  submit  a  Deviation/Waiver  requesting 
modifications  to  the  transformer  drawing  with  respect  to  corona  measurement, 
corona  suppression,  and  abatement.  In  order  to  prevent  delays  in  receiving 
First-Article  transducers,  the  waiver  (applicable  to  these  transducers  only) 
was  allowed. 

Since  the  waiver  was  allowed  for  First-Article  transducers  only,  and  at  the 
beginning  of  production  NAVSEA  would  again  have  to  address  the  problem,  NRL- 
USRD  accepted  the  task  of  developing  a  technically  defensible  corona  test  for 
the  TR-317  transformer  that  could  be  applied  to  the  production  transformers. 

Several  references  are  made  in  this  report,  to  the  TR-330A  transducer 
(NAVSEA  Drawing  53711-5517085) ,  and  TR-330A  transformer  corona  data  are 
presented.  Corona  requirements  were  not  included  in  the  original  TR-330A  FSP 
because  the  corona  specifications  for  the  TR-317 (  )  transformer  were 
indefensible,  and  there  were  problems  associated  with  corona  testing  the  TR- 
317(  )  transformer.  The  TR-317(  )  FSP  was  used  as  a  template  for  the  TR-330A, 
thus  the  solution  for  the  problem  in  the  TR-317 (  )  also  becomes  the  basis  for  a 
validated  corona  test  for  the  TR-330A  transformer. 


APPROACH  AND  OBJECTIVES 

The  approach  to  the  problem  was  to  use  the  corona  test  circuit  and 
specification  in  the  TR-317(  )  transformer  drawing  and  make  the  necessary 
changes  to  provide  a  technically  defensible  test.  That  is,  "defensible"  in  the 
sense  that  if  a  transformer  failed  to  pass  the  test,  the  transformer  would  be 
questionable  —  not  the  measurement,  methodology,  or  test  circuit. 

The  first  step  in  the  approach  was  to  eliminate  the  quantitative  test 
procedure  and  replace  it  with  a  qualitative  test  procedure.  Therefore,  instead 
of  specifying  a  quantitative  measure  of  corona  current  at  some  test  voltage,  the 
approach  would  be  based  on  the  qualitative  detection  of  corona  inception.  That 
is,  the  goal  was  simply  to  be  able  to  detect  when  corona  first  occurs,  and 
measure  the  voltage  at  which  it  occurs. 

The  hardware  for  the  test  must  be  specified  and  tested  to  determine  if 
corona  can  be  detected  reliably,  repeatedly,  and  economically  at  the 
transformer  assembly  level. 
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The  items  needed  to  accomplish  a  CIY  test,  not  including  ancillary 
equipment ,  are : 

.  A  circuit  to  resonate  with  the  auto transformer  at  the  approximate  center 
of  the  operating  frequency  range. 

.  A  high  pass  filter  to  attenuate  the  lower  fundamental  frequencies,  yet 
allow  the  higher  corona  frequencies  to  be  passed  for  detection. 

.  A  properly  constructed  Faraday  shield  to  provide  protection  from  outside 
electromagnetic  interference  which  can  mask  the  corona  signal. 


CIV  TEST  CIRCUIT  DESCRIPTION 


The  corona  test  circuit  and  test  procedure  originally  developed  by  the 
TR-317R  transducer  design  team  was  inadequate  for  its  intended  purpose.  Figure 
1  depicts  an  improved  CIV  test  circuit,  including  the  ancillary  test 
equipment,  that  has  been  developed  from  the  original  test  circuit  and 
validated.  In  Fig.  1,  capacitor  C^,  inductor  L,  and  capacitor  Cg  are  the 
essential  parts  of  the  autotransformer  resonant  circuit:  C^  resonates  with  the 
transformer  under  test,  Cg  isolates  the  EMI  filter  from  the  rest  of  the  circuit 
to  prevent  loading,  and  L  enhances  the  corona  detection  by  preventing  the 
source  from  shunting  the  corona  signal.  C.  is  calculated  from  the  formula  for 
the  resonance  frequency  of  an  ideal  parallel  LC  circuit  which  is, 


f 


r 
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(1) 


If,  in  Eq.  (1),  we  define  as  the  inductance  of  the  transformer  under  test, 
and  fr  as  the  approximate  center  of  the  transformers  operating  frequency  band, 
then 
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FARADAY  SHIELD 


C  -  5000pF  5000  WVDC  .1JSDF 
C  -  150  pF  CAPACITOR  5000  WVDC  .1J©F 
VI  -  INPUT  TO  OSCILLOSCOPE 

VM  -  VOLTMETER.  FLUKE  8922A  TRUE  RMS  OR  EQUIVALENT  (USE  100X  OR  1000X  PROBE). 
L  -  2.4mH  INDUCTOR  PIE  WOUND  LOW  CAPACITANCE 

SOURCE  AND  AMPLIFIER  -  WAVE7EK  182A  FUNCTION  GENERATOR  AND  INSTRUMENTS  INC.. 

LDV2-6,  10KVA  POWER  AMPURER  OR  EQUIVALENT. 


Fig.  1  -  CIV  test  circuit. 


Figure  2  is  a  schematic  diagram  of  the  EMI  filter  section  of  the  circuit 
shown  in  Fig.  1  and  depicts  the  three  stage  ladder,  R-C,  R-L,  high-pass  filter 
which  passes  the  corona  signal  to  an  appropriate  detector.  The  circuit 
component  values  shown  in  Fig.  2  were  determined  by  using  equations  derived 
from  the  model  of  a  three-stage,  high  pass,  L  section  filter.  The  circuit 
values  were  verified  on  a  computer  program,  developed  by  the  Naval  Ocean 
Systems  Center  (NOSC)  for  an  L  section  filter.  The  computer  program  for  the 
circuit  is  contained  in  the  appendix. 
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R1  Cl  R2  C2  R3  C3 


R1.  R2,  R3  -  4000  OHMS.  5W 
R4  -  400  OHMS  5W 
R5  «  300  OHMS  5W 
R6  -  200  OHMS  5W 


LI.  L2.  L3  -  0.02H  0.1AMP 


Cl  ■»  0.5uF  3KVDC 
C2  -  0.2uF  3KVDC 
C3  «  0.1  uF  3KVDC 


COMPONENTS  TOLERANCE  ■*  ±5X 


Fig.  2  -  EMI  filter  for  CIV  test  circuit. 


Several  different  circuits  were  evaluated  to  determine  the  five  most 
optimum  values  shown  in  Fig.  3,  although  all  the  circuits  evaluated  were,  to 
some  degree,  acceptable  in  that  the  fundamental  frequency  would  be  attenuated 
while  allowing  the  corona  frequency  to  be  passed  through  for  detection. 

Circuit  value  set  #1  was  chosen  because  at  no  time  did  ®ou^/®*n  exceed  0  dB, 
and  set  #1  exhibited  a  steep  cutoff  slope.  Set  #2  also  exhibited  a  steep 
cutoff  slope,  but  exceeded  0  dB  E^^/E^.  The  °bher  circuit  values  would  allow 
attenuation  of  the  fundamental  frequency,  but  not  to  the  same  degree  as  set  #1. 
The  calculated  values  (along  with  actual  tests)  verified  that  the  circuit  would 
be  acceptable  for  testing  both  TR-317(  )  and  TR-330  transformers  with  only  a 
change  in  the  value  of  capacitor  C^  shown  in  Fig.  1. 
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The  quality  of  the  components  used  in  the  circuit  is  very  important  to 
eliminate  the  possibility  of  corona  in  any  other  part  of  the  circuit  except  the 
transformer  under  test.  All  capacitors  are  oil-filled  polypropylene  capacitors 
and  have  a  dielectric  dissipation  factor  of  0.001  (O.lJS)  or  less. 

The  inductors  for  the  CIV  test  circuit  were  designed  and  fabricated  at  NRL- 
USRD.  Inductor  L,  in  Fig.  1,  consists  of  18  turns  of  #25  polythermaleze 
insulated  copper  wire,  pi  wound  on  a  three  section  bobbin.  The  bobbin  assembly 
is  placed  into  a  Ferroxcube  #2616  P  3C8  ferrite  cup  core,  and  the  Q,  measured 
on  a  RLC  bridge,  is  68.  Inductors  LI,  L2,  and  L3  in  Fig.  2  consist  of  223 
turns  of  #25  polythermaleze  insulated  copper  wire  in  a  Ferroxcube  #3622  PA400 
3B7  ferrite  cup  core;  and  the  measured  Q  is  approximately  270. 

Figures  4a  through  4f  are  photographs  of  the  test  circuit  chassis  and 
enclosure.  Excluding  the  ancillary  equipment,  only  the  transformer  under  test 
is  not  within  the  shielded  enclosure. 

The  Faraday  shield  for  the  circuit  consists  of  the  aluminum  chassis  bottom, 
the  chassis  faceplate,  and  the  copper  wire  mesh  attached  by  screws  to  the 
chassis  as  shown  in  Fig.  4c.  Shielding  the  circuit  could  also  be  accomplished 
by  enclosure  in  a  metal  box  or  cabinet  instead  of  using  a  copper  mesh.  The 
mesh  was  used  during  the  development  phase  to  visually  determine  the  existence 
of  any  arcing.  The  circuit  components  and  wiring  should  be  isolated  from  the 
the  enclosure  to  minimize  any  interaction  between  the  return  current  path  of 
the  circuit  and  the  grounded  case  shield  which  should  not  have  any  current 
flow.  This  condition  is  implied  by  the  single  point  ground  connection  shown  in 

Fig.  1. 
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The  electrical  connections  between  circuit  components  on  the  chassis  are 
made  with  15  kV  dc  rated,  silicone  insulated,  20  AWG  stranded  copper  wire. 


Fig.  4a  -  Front  view  of  faceplate. 


Fig.  4b  -  Rear  view  shield  mesh  installed. 
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Fig.  4c  -  Side  view  Faraday  shield/chassis. 


Fig.  4d  -  Top  view  mesh  installed. 
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Fig.  4f  -  Rear  view  component  mounting. 
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CIV  TEST  PROCEDURES 

An  oscilloscope  with  a  measurement  capability  of  dc  to  at  least  20  MHz 
should  be  used.  The  output  connector  VI  is  connected  to  the  vertical  input  of 
the  oscilloscope.  The  oscilloscope  should  be  preset  to  a  vertical  input 
sensitivity  of  2  V/division  and  a  horizontal  sweep  time  of  20  fis/ division. 

The  rest  of  the  setup  is  done  as  shown  in  Fig.  1. 

The  hookup  wire  from  the  power  amplifier  output  should  be  a  single  twisted 
pair.  All  other  circuit  connections  are  made  with  RG-58/U  coaxial  cable  (which 
will  withstand  2  kV)  to  further  shield  the  circuit  from  EMI. 

In  evaluating  test  procedures,  measurements  were  made  with  and  without 
transformer  shielding  and  the  results  indicated  that  a  shield  was  not  necessary 
for  the  transformers  tested  (TR-317  and  TR-330A  autotransformers) .  In 
extremely  noisy  environments,  transformer  shielding  can  easily  be  accomplished, 
if  necessary,  but  all  shielded  ground  connections  to  the  circuit  should  be  made 
at  a  single  point  on  the  chassis. 

To  make  the  CIV  test: 

1.  Adjust  the  input  voltage  as  read  on  the  VM  to  the  transformer  to 
approximately  5  to  10V  at  the  approximate  resonant  frequency  [fr, 
Eq. (1)]  of  the  autotransformer  under  test.  Then  carefully  adjust 
the  frequency  generator  to  the  frequency  that  produces  the  maximum 
voltage  on  the  voltmeter,  or  the  maximum  amplitude  waveform  on  the 
oscilloscope. 

2.  After  the  frequency  is  adjusted  to  resonance,  carefully  increase 
the  applied  voltage  as  read  on  the  VM  until  the  corona  inception 
"hash"  is  sporadically  observed  on  the  oscilloscope.  Corona 
inception  is  evidenced  by  the  sporadic  high-frequency  "hash"  type 
oscillations  on  the  oscilloscope  waveform  and  by  an  increase  in 
the  voltmeter  reading.  Record  the  frequency  and  the  voltage  at 
which  corona  inception  is  observed. 

3.  Repeat  the  first  two  steps  two  more  times  to  insure  repeatability. 

Figures  5  and  6  serve  to  illustrate  how  the  corona  "hash"  appears  on  the 
oscilloscope  waveform.  Figure  5a  shows  the  scope  wave  form  for  a  TR-330A 
transformer  under  normal  drive  conditions  and  Fig.  5b  under  higher  drive 
conditions  that  has  produced  corona.  Note  that  a  small  amount  of  the  drive 
frequency  is  evident  in  the  oscilloscope  display;  but,  as  seen  in  the  high- 
drive  condition,  Fig.  5b,  is  not  detrimental  to  the  observance  of  the  corona 
"hash"  in  Fig.  5b.  Figures  6a  and  6b  show  the  same  drive  conditions  just 
described,  respectively,  for  a  TR-317  transformer;  Fig.  6a  shows  a  clean 
waveform;  and  Fig.  6b  shows  a  waveform  with  high-frequency  corona  "hash."  If 
desired,  corona  detection  can  be  augmented  if  an  AM  radio  receiver  is 
available,  placed  near  the  transformer  under  test,  and  tuned  to  550-560  kHz; 
sporadic  noise  (loud  static)  will  be  heard  from  the  receiver  at  the  same  time 
that  corona  "hash"  (as  illustrated  in  Figs.  5b  and  6b)  appears  on  the 
oscilloscope  waveform. 
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Fig.  5a  -  Output  of  the  CIV  test  circuit  for  a  TR-330A 
autotransformer  under  normal  drive  conditions. 


Fig.  5b  -  Output  of  the  CIV  teat  circuit  for  a  TR-330A 
autotransformer  under  high-drive  conditions 
with  corona  ■hash.* 
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CIV  TEST  PRECAUTIONS 

The  amplifier  chosen  for  the  CIV  test  must  be  adequate  for  the  intended 
purpose.  For  the  TR-317  transformer  test  circuit,  shown  in  Fig.  1,  the  power 
amplifier  should  be  an  Instruments  Inc.  Model  LDY  2-6,  10  kYA  or  an  equivalent 
that  will  supply  the  current  and  voltages  necessary  for  the  test.  For  the 
TR-330A  transformer,  a  McIntosh  Model  MC-2500,  1  kYA  amplifier  or  equivalent  is 
adequate.  Since  a  high  impedance  output  may  make  the  test  circuit  susceptible 
to  high-frequency  noise  pickup,  one  should  use  the  minimum  impedance  setting  on 
the  amplifier  compatible  with  providing  the  required  test  voltage  across  the 
transformer. 

For  the  TR-317  corona  test  circuit,  capacitor  should  be  the  value  shown 
in  Fig.  1.  For  the  TR-330A  transformer  corona  test,  the  value  of  C.  should  be 
3000  pF. 

It  should  be  emphasized  that  corona  occurs  in  the  presence  of  high 
voltages;  therefore,  high  voltage  is  required  to  make  the  test.  The 
measurements  should  be  made  with  care  and  respect  for  the  operating  conditions 
to  prevent  serious  electrical  shock  to  the  operator. 


CIV  TEST  DATA 

The  CIV  test  circuit  and  procedures  previously  described  have  been  used  to 
determine  the  CIV  for  several  TR-317  and  TR-330A  production  transformers  and 
for  experimental  TR-330A  toroidal  autotransformers.  The  TR-317  group  contains 
transformers  salvaged  from  TR-317  autopsies,  transformers  from  the  TR-317R 
sample  buy,  and  GE  TR-317 (  )  production  transformers  —  the  latter  two  made  by 
Harder,  Inc.  and  Chloride,  respectively.  The  transformers  are  fabricated  in  a 
variety  of  ways;  i.e.,  varnish  coated  but  not  potted,  potted,  etc.,  these 
conditions  are  noted  with  the  measured  data  in  Tables  1  and  2. 

The  TR-330A  group  contains  transformers  which  are  potted  except  for  two 
experimental  toroidal  transformers  which  are  unpotted.  The  unpotted 
transformers  were  included  in  the  test  to  demonstrate  the  difference  in  CIV 
between  unpotted  and  potted  transformers. 

Table  1  provides  data  from  the  CIV  tests  on  the  TR-317  transformers.  The 
serial  numbers  shown  in  the  table  are  the  actual  serial  numbers  shown  on  the 
transformers,  except  for  those  that  have  an  A  prefix  (the  A  prefix  indicates 
the  serial  number  of  the  transducer  from  which  the  transformer  was  removed) . 

The  table  indicates,  in  the  column  headed  "Type,"  certain  conditions  and 
materials  used  in  the  fabrications  of  the  transformer.  Table  la  is  corona  test 
data  for  TR-317  transformers,  some  of  which  were  salvaged  from  autopsies. 

Table  lb  is  test  data  for  6  GE  TR-317(  )  production  transformers  (Chloride). 
Table  lc  shows  the  test  data  from  6  TR-317R  Sample  Buy  (Harder)  transformers. 
The  frequency  data  shown  in  Table  1  is  relative  to  the  electrical  resonance  of 
the  transducer  in-water  (peak  of  free-field  voltage  sensitivity).  The  table 
indicates  three  independent  measurements  on  each  transformer.  Measurements 
were  taken  at  approximately  1  minute  intervals. 
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Table  la  -  Corona  Test  Data  for  TR-317  Autotransformers. 


Ser  # 

CIV 

Relative 

Freq 

(Hz) 

Relative 

Freq 

CIV  (Hz) 

Relative 
Freq 
CIV  (Hz) 

Type 

CIV 

Mean 

Std 

Dev 

013 

2731 

790 

2522 

858 

2561 

852 

Coated 

2604 

111 

405 

2915 

586 

2665 

583 

2596 

597 

Coated 

2725 

168 

H-l 

3115 

462 

2557 

499 

2550 

473 

Potted 

2741 

324 

H-2 

3007 

518 

2825 

532 

3110 

519 

Potted 

2981 

144 

H-3 

2731 

578 

2899 

613 

2756 

570 

Coated 

2795 

90 

A31108 

3372 

587 

3169 

634 

3125 

604 

(Coated 

3222 

132 

A30433 

2549 

586 

2778 

605 

2882 

596 

From 

2736 

170 

A22719 

3196 

596 

2954 

569 

3020 

572 

TR-317 (  ) 

3057 

125 

A24394 

2998 

593 

3142 

579 

3057 

772 

Autopsies) 

3066 

72 

Table  lb  -  TR-317 (  ) 

Autotransformers 

:  from  GE  (made  by  Chloride) 

• 

Relative 

Relative 

Relative 

CIV 

Freq 

Freq 

Freq 

Std 

Ser  # 

CIV 

(Hz) 

CIV 

(Hz) 

CIV 

(Hz) 

Type 

Mean 

Dev 

1 

3152 

509 

3199 

596 

3267 

597 

Coated 

3206 

58 

2 

3428 

501 

3137 

617 

3203 

616 

with  corona 

3256 

153 

3 

3056 

515 

3200 

609 

3175 

608 

suppressant 

3144 

77 

4 

3247 

620 

3105 

619 

3050 

619 

* 

3134 

102 

5 

3007 

624 

3109 

623 

3135 

624 

3084 

68 

6 

3108 

620 

3013 

621 

3135 

618 

3085 

64 

* 

Hi  Temp 

221,  Hi  Temp  Resins  Inc. 

Table 

lc  -  TR-317R  Sample  Buy 

Autotransformers  from  Harder  Inc. 

Relative 

Relative 

Relative 

_  CIV 

Freq 

Freq 

Freq 

Std 

Ser  # 

CIV 

(Hz) 

CIV 

(Hz) 

CIV 

(Hz) 

Type 

Mean 

Dev 

037 

2581 

576 

2564 

577 

2581 

577 

Coated 

2575 

10 

041 

2522 

570 

2479 

569 

2526 

569 

with 

2509 

26 

054 

3003 

571 

3100 

568 

3044 

569 

epoxy 

3049 

49 

058 

2570 

568 

2605 

569 

2500 

568 

resin 

2558 

53 

060 

2570 

582 

2500 

582 

2580 

582 

as  per 

2550 

44 

061 

2700 

579 

2816 

578 

2703 

579 

dwg  pkg 

2760 

66 
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Table  2  provides  corona  inception  data  for  several  TR-330A  transformers. 

The  test  circuit  shown  in  Fig.  1  was  used  to  take  the  data  with  the  following 
modifications:  Capacitor  CA  was  changed  to  3000  pF  and  the  power  amplifier  was 
a  McIntosh  Model  2500.  The  frequencies  shown  in  Table  2  are,  in  this  case,  the 
actual  resonance  frequencies. 


Table  2  -  TR-330A  Autotransformer  Corona  Test  Data. 


CIV 


Ser  # 

CIV 

Freq 

(Hz) 

CIV 

Freq 

(Hz) 

CIV 

Freq 

(Hz) 

Type 

Mean 

Std 

Dev 

1 

1504 

6925 

1500 

6922 

1513 

6922 

Ferrite 

1506 

7.0 

2 

1526 

6944 

1568 

6948 

1540 

6950 

Ferrite 

1545 

21 

3 

1500 

6942 

1517 

6945 

1522 

6942 

Ferrite 

1513 

12 

194 

1559 

6583 

1587 

6582 

1590 

6582 

Ferrite 

1579 

17 

567 

1583 

7152 

1548 

7148 

1597 

7150 

Ferrite 

1576 

25 

617 

1559 

7088 

1556 

7087 

1560 

7086 

Ferrite 

1558 

2.1 

MPP  1* 

530 

6543 

600 

6531 

596 

6534 

Unpotted 

575 

39 

MPP  2* 

1659 

6302 

1644 

6282 

1652 

6288 

Potted 

1652 

7.5 

MPP  3* 

545 

6533 

585 

6526 

562 

6527 

Unpotted 

564 

20 

MPP  4* 

1655 

6235 

1850 

6234 

1659 

6235 

Potted 

1655 

4.5 

*  MPP  1  =  Unpotted  toroid  55251-W4  core. 

MPP  2  =  Potted  toroid  55251-W4  core. 

MPP  3  =  Unpotted  toroid  55248-A2  core. 

MPP  4  =  Potted  toroid  55248  -A2  core . 

MPP  =  Molypermalloy  Powder  core  manufactured  by  Magnetics  Inc. 

Potting  compound  =  Eccobond  45  black  with  19M  catalyst.  Autotransformer  was 

vacuum  potted. 


CONCLUSIONS 

The  data  from  both  the  TR-330A,  TR-317(  ),  TR-317R,  and  the  TR-317 
autotransformer  samples  indicate  that  the  TR-330A  representatives  have  a 
smaller  standard  deviation  than  representatives  from  the  TR-317  group.  In 
particular,  serial  #H-1  of  the  TR-317  group,  with  a  standard  deviation  of 
324  V,  presents  an  interesting  problem.  Operator  error  is  the  most  probable 
cause  of  the  first  excessively  high  CIV  reading  for  serial  #H-1,  as  the  last 
two  readings  are  much  closer  to  each  other  (within  7  V) .  Standard  deviations 
were  below  65?  of  the  mean  CIV  recorded.  For  this  type  of  measurement,  the 
standard  deviations  are  acceptable.  An  AM  receiver  was  added  to  the  rest  of 
the  ancillary  equipment  go  gather  the  TR-330A  data  where  the  standard 
deviations  were  less  than  2%  of  the  mean  CIV.  The  AM  receiver  has  the 
advantage  of  providing  the  operator  with  an  audio  reference  which  compliments 
the  visual  reference. 
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SUMMARY 

An  autotrans former  corona  test  circuit  has  been  developed  and  tested, 
ancillary  equipment  for  the  test  has  been  identified  and  recommended,  test 
procedures  and  precautions  have  been  presented,  and  measured  corona  data  are 
presented  for  autotransformers  of  different  manufacture  and  type.  As  a  result, 
recommendations  have  been  made  to  NAYSEA  to  incorporate  the  test  into 
appropriate  drawing  packages. 
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Appendix 

LADDER  COMPUTER  PROGRAM  FOR  EMI  FILTER 


Figure  A1  contains  the  circuit  identifiers  used  to  operate  the  computer 
program  which  follows.  This  program  was  used  successfully  on  a  Hewlett  Packard 
9000,  model  200  computer  using  HP  BASIC  5.0.  Lines  80-120  in  the  program 
describe  the  initial  procedure  of  loading  the  program. 


Fig.  A1  -  Circuit  identifiers. 
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10 

!  LAODER  PROGRAM  VERSION  1.0,  OCTOBER  1988 

20 

1  AUTHOR:  HOMER  DING 

30 

!  NAVAL  OCEAN  SYSTEMS  CENTER 

40 

!  CODE  71 1  .  BLDG  132 

50 

!  SAN  DIEGO,  CA.  92152 

60 

!  (619)  553-1443 

70 

! 

80 

!  THIS  PROGRAM  WAS  WRITTEN  IN  HP  BASIC  4.0. 

90 

!  A  COMPLEX  EXTENSION  FROM  STRUCTURED  SOFTWARE  SYSTEMS 

100 

!  WAS  ALSO  USED. 

1  10 

1  THIS  PROGRAM  SHOULD  WORK  WITH  HP  BASIC  5.0 

IF  THE  GET  STATEMENT 

120 

1  IS  USED  TO  PLACE  THE  ASCII  FILE  IN  THE  COMPUTER. 

130 

I 

140 

!  THIS  PROGRAM  WILL  COMPUTE  THE  OUTPUT/INPUT 

V0LTA6E  TRANSFER  FUN 

CTION 

150 

!  OF  A  LADDER  NETWORK. 

160 

!  Nb  -  TOTAL  NUMBER  OF  BRANCHES 

170 

!  THE  FIRST  LETTER  OF  A  BRANCH  TYPE  IS  S.  P. 

OR  T 

180 

!  S  -  SERIES  BRANCH 

190 

!  P  -  PARALLEL  BRANCH 

200 

1  T  =  IDEAL  TRANSFORMER 

210 

!  IF  T  THEN  THERE  ARE  NO  OTHER  LETTERS  WHICH 

DESCRIBES  THE  BRANCH 

TYPE 

220 

230 

240 

250 

260 

ent  ,Nchr ,Xtab 


Z  -  SERIES  COMBINATION  OF  BRANCH  COMPONENTS 
Y  -  PARALLEL  COMBINATION  OF  BRANCH  COMPONENTS 
C,  L.  AND  R  -  TYPE  OF  BRANCH  COMPONENTS 


I 


COM  /Menu/  Menu$< 20 )[ 80 ) ,ChS< 20 >[ 6  I  ,Mark0S[ 1 ] .Mark  1 *1 1  I .INTEGER  N 
,Ytab  ,Ch<  20  ) 


270  COM  /N/  @Path1  .Net  f ile$[20I  ,Cmnt$( 2  >1801  ,Br$( 20  >C  6 )  .INTEGER  Nb  .RE 

AL  R<  20  )  ,L( 20  )  ,C<  20  )  ,Clk$t  80 ] 

280  COM  /C/  REAL  F ,W ,F1 ,F2 .Fs .SwpsegsC G  .4  )  .INTEGER  Nseg  .Ns  ,Tns  ,Logf lg 

,Logf lags( 6  >  .COMPLEX  Eb<20  > .  Ib< 20  ) ,  Imb< 20 ) ,Yb(20  > ,Anet<2 .2 ) 

290  COM  /LJ/  Lf S1 1 ] ,Cr$[ l],Ff$C3],Esc$C1J  .Portrai t$I 6  I  .LandscaqpeSt  6 ] 

,Font$(4>[80] , INTEGER  Psc  .Page  .Npages .Font nun 


300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

&16D" 

410 

"&160" 

420 

&15.6667C" 

430 

"&15.6667C" 

440 


INTEGER  Chose  ,M,K1 ,K2 .1 
REAL  X  ,Y  ,6  ,B  ,Z  ,Mag ,Ang 
DIM  S$C  80 ]  ,K$C 2 ] 

LOCAL  7 
Lf$-CHR*< 10) 

Cr*-CHR$( 13  > 

Esc$-CHR$<27) 

Ff$-Esc$&CHR$<7)&CHR$U2  > 

Portrai t$-Esc$&“& 100" 

Portrai t$»Esc$&"Sl 10‘ 

Font$(  I  >“Portrai  t$8iEsc$8r'<  1 0U“ 8>Esc$8. "  (  s0p  1 0.00h1  2 . 00v0s0B'8.Esc$i “ 
Font$<  2  >*Landscape$&EscS8r" (  10U"SEsc$&“(  s0p  1 0 . 00h1  2 .00v0s0B'iEscS& 

Font$(3)**P0rtrait$&Esc$8,'<  10U"&E3c*8,"(s0p16.66h8.S0v0s-3B'&EscS&' 

Font$( 4  >“Landscape$&Esc$8r " ( 10U"&Esc$&'( s0p 1 6 . 66h8 . 50v0s-3B"iEsc$& 
REPEAT 
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450 

450 

470 

480 

490 

500 

510 

520 

530 

540 

550 

JET)"  ,Psc> 
550 
570 
580 
590 
600 
610 

JET)"  .Psc  ) 
620 
630 
640 
650 

JET)", Psc) 
660 
670 
680 
690 

JET)'  ,Psc  ) 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


CALL  Menu( 1  ) 

CALL  Cls 
SELECT  Ch$( 1  ) 

CASE  “G" 

CALL  Getnflle 
CASE  "E" 

CALL  Entnet 
CASE  "S" 

CALL  Recnfile 
CASE  "P" 

CALL  Entintl  “PRINTER  SELECT  CODEd-CRT,  2-THINKJET ,  9-LASER 

Clk$C1  ,80  I=FNClock$ 

CALL  Prtnei 
CASE  "F" 

CALL  Entswpsegs 
CASE  “R" 

CALL  Entint<  "PRINTER  SELECT  CODEd-CRT,  2-THINK JET  ,  9-LASER 

Clk$t 1  ,801-FNGlock* 

CALL  Prtrat 
CASE  "I" 

CALL  Entint<  “PRINTER  SELECT  CODEd-CRT,  2-THINK  JET  ,  9-LASER 

Clk$C 1  .80  ]=FNCiockS 
CALL  Prt lev 
CASE  “A" 

CALL  EntinU  "PRINTER  SELECT  CODEd-CRT,  2-THINK  JET  ,  9-LASER 

Clk$[ 1  ,80]-FNClock$ 

CALL  Prtanet 
END  SELECT 
UNTIL  Ch( 1  )=Nent 
CALL  Cls 
STOP 
END 
! 

SUB  Beep< OPTIONAL  INTEGER  Nbeep  ,Freq  .REAL  Secon.Secof) 

INTEGER  I.F.N 
REAL  SI  ,S0 
N-1 

F-2700 
S1-.03 
S0- .04 

IF  NPAR>0  THEN  N-Nbeep 
IF  NPAR> 1  THEN  F-Freq 
IF  NPAR/2  THEN  Sl-Secon 
IF  NPAR>3  THEN  S0-Secof 
FOR  1=1  TO  N 
BEEP  F  , S 1 
WAIT  S0 
NEXT  I 

SUBEND  !  Beep 
I 
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950 
950 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1050 
1070 
1080 
1090 
1  100 
1110 
1120 
1130 
t  140 
1150 
1  160 
1  170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


SUB  Fkeys< OPTIONAL  INTEGER  Keyon)  ! 0-OFF,  1-ON 
INTEGER  K 
K-1 

IF  NPAR-1  THEN  K-NOT  Keyon 
CONTROL  CRT  ,  1 2  ;K 
SUBEND  !  Fkeys 
! 

SUB  Curs< OPTIONAL  INTEGER  Col  ,Rou  .Curson > 

INTEGER  C.R.S 

C-1 

R- 1  9 

S-1  I  CURS  ON 
IF  NPAR>0  THEN  C=Col 
IF  NPAR> 1  THEN  R-Row 
IF  NPAR>2  THEN  S-Curson 
CONTROL  CRT  ,0  sC 
CONTROL  CRT  ,1 ;R 
CONTROL  CRT  ,  1 0 i S 
SUBEND  I  Curs 
! 

SUB  Cls( OPTIONAL  INTEGER  Col .Row .Keyof  ) 

INTEGER  C.R.K 

C-1 

R-19 

K=0 

IF  NPAR>0  THEN  C«=Col 
IF  NPAR> 1  THEN  R=Rou 
IF  NPAR>2  THEN  K-Keyof 
OUTPUT  CRTjCHR$< 128)j 
OUTPUT  KBDtCHR$<  255  )&"K“ j 
CALL  Fkeys(K) 

CALL  Curs<  C  ,R  ) 

SUBEND  !  Cl s 

I 

DEF  FNClockS 

RETURN  UPC$<  DATES( TIMEDATE  )&"  ,  “&TIMES( TIMEDATE  ) ) 

FNEND  !  FNClockS 
I 

SUB  Continue 
INTEGER  K 1  ,K2 

D1SP  'TO  CONTINUE  HIT  ANY  KEY” 

CALL  Kbscan<  K I  ,K2  ) 

OISP 

SUBENO  !  Continue 
! 

OEF  FNAtn2(X,Y  .OPTIONAL  INTEGER  Posang)  !  4  QUADRANT  ARC  TANGENT 
INTEGER  P 
DEG 
P-0 

IF  NPAR-3  THEN  P-Posang 
RETURN  ARG( CMPLX( X,Y>)+(P<>0>»360 
FNEND  !  FNAtn2 
! 

SUB  Rec2pol(Xr,Xi  , Mag, Ang, OPTIONAL  INTEGER  Posang) 
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1490 
1500 
1510 
1520 
1 S30 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I  960 
1970 
1980 
1990 
2000 
2010 
2020 


INTEGER  P 
REAL  M 
DEG 
P-0 

IF  NPAR-5  THEN  P-Posang 
M-ABSI CMPLXC  Xr  ,Xi  )  > 

Ang=FNAtn2(Xr,Xi,P> 

Mag-11 

SUBEND  !  Rec2pl 
! 

SUB  Pol2rec(MagtAng,Xr,Xi>  ! POLAR  TO  RECTANGULAR 
REAL  Txr 

Txr=Mag*COS< Ang  ) 

Xi-Mag*SIN<  Ang  ) 

Xr-Txr 

SUBENO  !  Pol2rec 
! 

DEF  FNDb(X) 

RETURN  20*LGT <  X  > 

FNEND  !  FNDb 
! 

DEF  FNAdb(X) 

RETURN  1 0" ( . 05*X ) 

FNEND  !  FNAdb 


SUB  Ent str< Prompt® ,Str$  ) 

DIM  TempSI 80 ] 

DI SP  PromptSS"  -  "  i 
OUTPUT  2;StrS; 

OUTPUT  KB0;CHR$<255)! “H” i 
LINPUT  Temp$ 

IF  TempSO""  THEN  Str$=Temp$ 

PRINT  Prompts*"  =  "?Str$ 

SUBEND  !  EntSTR 
! 

SUB  Ent int ( Prompts  .INTEGER  I .OPTIONAL  INTEGER  Noprt  ) 
DIM  Temp$t80] 

INTEGER  Prtflg 
Prtflg-1 

IF  NPAR-3  THEN  Prtflg=NOT  Noprt 
DISP  Prompts*"  =  “i 
OUTPUT  2 iUALSt I >  ? 

OUTPUT  KBD s  CHR$( 255  > ; "H" ; 

LINPUT  TempS 

IF  TempSO""  THEN  I=VAL(TempS) 

IF  Prtflg  THEN  PRINT  PromptSS"  =  " ;  I 
SUBENO  !  Ent int 
I 

SUB  EntreaKPromptS  .REAL  U.OPTIONAL  REAL  Unitmult) 
REAL  U 

DIM  TempSI 80 ] 

U-l 

IF  NPAR-3  THEN  U=Unitmult 
OISP  PromptSS"  -  “s 
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2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720  Kbintr 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 

R  Nent ,Nchr 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
RN“ 

2940 

2950  Scan: 


OATA  A  PLOT  i 
DATA  0  PLOT  1 
DATA  +  ADD  Tl 
DATA  Q  QUIT 
! 

SUBEND  !  Prtmenu 


PLOT  AXES 
PLOT  OATA 

ADD  TO  FILE  NUMBERS 
QUIT 


SUB  Kbscanl INTEGER  K 1  ,K2  .OPTIONAL  K$ > 

DIM  Ch«C23 
K 1  =0 

ON  KBD  GOSUB  Kbintr 
REPEAT 
UNTIL  K1<>0 
OFF  KBD 
SUBEXIT 
! 

:  Ch$=KBD$ 

K 1  =NUM(  Ch$t  1,11) 

IF  K 1=255  THEN 

K2=NUM<  ChSC  2 ,21) 

Ch$=Ch$C2 ,23 

ELSE 

K2=0 

END  IF 

IF  NPAR=3  THEN  K$=Ch$ 

RETURN 

SUBEND  !  Kbscan 
! 

SUB  Menu! INTEGER  Nmenu) 

COM  /Menu/  Menu$< 20 >C 80 3  ,Ch$< 20  ) C 6 3  ,Mark0$[ 1 3  .Mark  1 $113  , INTEGE 
,Xtab  , Ytab  ,Ch(20> 

INTEGER  I  ,K1  ,K2  .Udth.Chose  ,Xt„i 
DIM  K$[ 2  3 
Mark0$=CHR$( 128 ) 

Mark  1 $=CHRS ( 129 ) 

CALL  Prtmenu! Nmenu ) 

Chose=Ch( Nmenu ) 

Xtm I =X  tab- 1 

DISP  "SELECT  WITH  ALPHA-NUMERic  OR  UP-DOWN  KEYS.  THEN  HIT  RETU 
REPEAT 

IF  Chose< 1  THEN  Chose=Nent 
IF  Chose>Nent  THEN  Chose=i 

PRINT  TABXY(Xtml  .Ytab+Chose > ;Mark 1 S&"  "&Menu$< Chose >&"  ", 
CALL  Kbscanl K 1  ,K2  ,KS  ) 

PRINT  TABXYlXtml  .Ytab+Chose >;Mark0$&"  “&Menu$( Chose  )&"  ”, 

IF  K  1  0255  THEN 
GOSUB  Search 
ELSE 

IF  K2<>69  THEN  Chose=Chose  +  ( K2=86  )-< K2-94  ) 

END  IF 

UNTIL  K 1 =255  AND  K2-69 
Ch<  Nmenu  >=Chose 

Ch$( Nmenu  )=Menu$<  Chose  )I 1 ,Nchr  3 
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3080 

DISP 

3090 

SUBEXIT 

3100 

l 

31 10  Search: 

FOR  1-1  TO  Nent 

3120 

IF  K$-Menu$(I )I  1  .1  I  THEN 

3130 

Chose-I 

3140 

I-Nent 

3150 

END  IF 

3160 

NEXT  I 

3170 

RETURN 

3180 

! 

3190 

SUBEND  !  Menu 

3200 

! 

3210 

SUB  Tboxon 

3220 

LjS=“CALL  25CE.1 “&CHRS! 13) 

3230 

OUTPUT  9i “QUIET  0N"iCHR$< 13 > ; 

3240 

OUTPUT  9;Lj$s 

3250 

SUBEND  !  Tboxon 

3260 

! 

3270 

SUB  Tboxoff 

3280 

Quit$-CHR$(  27  )&CHRS<  1  27  )8,“D0NE "&CHR$<  1 3  >&CHR$(  13) 

3290 

OUTPUT  9;Quit$; 

3300 

WAIT  1 

3310 

OUTPUT  9; “QUIET  OFF’&CHRS! 1 3 ) i 

3320 

SUBEND  !  Tboxoff 

3330 

! 

3340 

SUB  Preprint 

3350 

COM  /Lj/  Lf$m.Cr$[U.Ff$[33.Esc*t1],Portrait$I6].Landscaqpe$ 

I6],Font$(4)[80  3.  INTEGER  Psc  .Page  .Npagas  .Font nun 

3360 

PRINTER  IS  Psc 

3370 

IF  Psc=9  THEN 

3380 

OUTPUT  PscjEsc$&CHR$(7  )&"Q0; “ j  1  GO  TO  LASERJET  SERIES  II  EM 

ULATION 

3390 

WAIT  1.5 

3400 

OUTPUT  Psc j Font$( Fontnun  )  j 

3410 

OUTPUT  Psc  sEsc$& "8»a  1  0L" ;  !  SET  LEFT  MARGIN  10  SPAACES 

3420 

OUTPUT  PsciEsc$8,"&50C“  i  1  SET  LINE  WRAP 

3430 

END  IF 

3440 

SUBENO  !  Preprint 

3450 

! 

3460 

SUB  Postprint 

3470 

COM  /Lj/  Lf$C1  ]  ,Cr$I1 ]  ,Ff $C 3 ] ,Esc$C 1 ] .Portrait*! 6 3 .LandscaqpeS 

[6]  ,FontS( 4  >180]  .INTEGER  Psc  .Page  .Npages  .Font nun 

3480 

IF  Psc-CRT  THEN 

3490 

CALL  Continue 

3500 

ELSE 

3510 

OUTPUT  Psc ; F  f $ ; 

3520 

END  IF 

3530 

CALL  Beep(S) 

3540 

SUBEND  !  Postprint 

3550 

l 

3560 

SUB  LI  1st 

3570 

COM  /LJ/  Lf SI  1 3  ,Cr$! 1 3  ,Ff $! 3 3  ,Esc$! 1 3  .Portra i t$C 6 3 .Landscaqpe* 

16  3  ,Font$<4  H80  3  .INTEGER  Psc  .Page  .Npages  .Font nun 
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3580 
)"  ,Psc  ) 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
0) 

3780 

3790 

3800 

AB( 80 ) 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900  R: 

3910 

3920 

3930 


CALL  Entint< "PRINTER  SELECT  CODE(1=CRT,  2=THINKJET ,  9-LASERJET 

Fi leS=“LADOER" 

Page=0 
Npages“0 
Fontnum«'3 
CALL  Preprint 
CAT  FileS 
CALL  Postprint 
CALL  Continue 
CALL  Preprint 
LIST  #Psc 
CALL  Postprint 
CALL  Beep(S) 

SUBEND  !  Llist 
! 

SUB  Recordi OPTIONAL  INTEGER  A) 

Fi le$="LADDER“ 

IF  NPAR>0  THEN 

RE-SAUE  File$8,“ :  ,702  ,0“. 

DISP  “ “ “ "&FileS& " * “  PROGRAM  RE-SAUED  IN  ASCII  FORMAT TAB< 8 
ELSE 

RE-STORE  FileSS,":  ,1400“ 

DISP  " "" "&Fi le$&“ “ *  PROGRAM  RE-STORED  IN  INTERNAL  FORMAT “ ; T 
END  IF 

CALL  Beep<  5 ) 

SUBEND  1  Record 
! 

DEF  FNEx i st < NaneS  ) 

INTEGER  Existflg 

Ex ist  f  lg=*1 

ON  ERROR  RECOVER  Er 

ASSIGN  @P  TO  Names 

IF  Existflg  THEN  ASSI6N  @P  TO  « 

OFF  ERROR 
RETURN  Existflg 


3940  Er:  Existflg=0 

3950  GOTO  R 

3960  ! 

3970  FNEND  !  FNExist 

3980  ! 

3990  SUB  Mknet 

4000  COM  /N/  QPathl  .Net f i le$t 20]  ,Cmnt$< 2 H 80 1  1BrS(20)I63  .INTEGER  Nb 

.REAL  R<20),L(20),C(20),Clk$[80] 

4010  CREATE  BOAT  NetfileS,4 

4020  SUBEND  I  Mknet 

4030  ! 

4040  SUB  Getnfile 

4®50  COM  /N/  9Path1  .Net f i 1 e$t 20 ]  ,Cmnt $( 2 H 80 )  ,BrS( 20 >t 6  I .  INTEGER  Nb 

.REAL  R(20),L(20>,C(20).Clk$l80I 
4060  INTEGER  Fig 
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4070 
4080 
4090 
4100 
41  10 
4120 
4130 
4140 
41 S0 
4160 
4170 
4180 
4190 
4200 
4210 

.REAL  R( 20  )  ,L< 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

.REAL  R( 20  )  ,L< 
4310 
4320 

4330  Format  1 : 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

R  TURNS  RATIO 

4440 

+3) 

4450 

> 

4460 

) 

4470 

4480 

4490 

4500 

4510 

fig  ,Logf lags( 6 

4520 

4530 


REPEAT 

CALL  Entstr( "NETWORK  FILE  NAME"  .Net f i le* > 

Flg»FNExist( Net  file* ) 

IF  Flg=0  THEN 
BEEP 

PRINT - sNet f i le* i " “ "  DOESN’T  EXIST.  TRY  AGAIN- 

END  IF 
UNTIL  Fig 

ASSIGN  @Path1  TO  Netfile* 

ENTER  @Path1  ;Cmnt$(  * ) ,Nb ,Br*( *  )  ,R( * >  .C< * >  ,L< *  ) 

ASSIGN  @Path1  TO  « 

SUBENO  !  Getnfile 
! 

SUB  Recnfile 

COM  /N/  @Pat hi  .Net  file*C20] ,Cmnt*( 2  )C  80 1 .Br$( 20  >C  6 1 .INTEGER  Nb 
20  )  ,C( 20  >  ,Clk*[ 80 3 

CALL  Entstr( “NETWORK  FILE  NAME- .Net f i le*  ) 

IF  FNExist( Net  file*  )*0  THEN  CALL  Mknet 
ASSIGN  §Path1  TO  Netfile* 

OUTPUT  @Path1 ;Cmnt*( * > ,Nb ,Br*( *  >  ,R( *  )  ,C( ♦  )  ,L<  *  ) 

ASSIGN  @Path 1  TO  * 

SUBEND  !  Recnfile 
l 

SUB  Entnet 

COM  /N/  @Pat  hi  .Netfile*! 20 1 ,Cmnt*( 2  >[ 80 ]  ,Br*( 20)161 .INTEGER  Nb 
20  >  ,C( 20  )  .Clk$[ 801 
INTEGER  I 
DIM  S$£ 40  ]  ,T*[ 1 2 1 
IMAGE  "BRANCH  ”  .K  .# 

CALL  Cls 

CALL  EntstrCREM  1“  ,Cmnt*< 1  > > 

CALL  Entstr( “REM  2-,Cmnt*<2)> 

CALL  Entintl "NUMBER  OF  BRANCHES- .Nb  ) 

FOR  1-1  TO  Nb 

OUTPUT  S*  USING  Format 1»I 
T*-8r*< I  ) 

CALL  Ent  str<  S*&"  TYPE' ,T*  ) 

Br*( I  )-T* 

IF  T*t 1  ,1 ]«"X"  OR  T*[ 1  ,1  ]  =  “T“  THEN  CALL  EntreaK “TRANSFORME 
(NS/NP  )”  ,R( I  )  > 

IF  POS(T*,-R- )<>0  THEN  CALL  Entreal(S*&"  R  ( KOHM  )‘  ,R(  I  ) ,  1  .  E 

IF  POS( TS  ,”C" )<>0  THEN  CALL  Entreal(S*&*  C  (nF>*  ,C( I >  ,1 .E-9 

IF  POS( TS  , ”L“  )<>0  THEN  CALL  Entreal(S*&"  L  (mH  )“ ,L( I  )  ,  1 .E-3 

NEXT  I 

SUBEND  !  Entnet 
I 

SUB  Seg2f( INTEGER  S) 

COM  /C/  REAL  F ,U ,F1  ,F2 ,Fs ,Swpsegs( 6 ,4 >  .INTEGER  Nseg  ,Ns  ,Tns  .Log 
) .COMPLEX  Eb<  20 ) ,Ib<  20  > ,Imb( 20 ) ,Yb<  20  >  ,Anet ( 2  ,2  ) 

FI »Swpsegs( S , 1 ) 

F2“Swpsegs<  S ,2 ) 
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4540  Fs^Supsegsl S  ,5  ) 

4550  Ns=Suipsegs<  S  ,4  ) 

45G0  Logf lg”Logf lags(  S ) 

4570  SU8END  !  Seg2f 

4580  ! 

4590  SUB  F2seg< INTEGER  S) 

4600  COM  /C/  REAL  F ,W ,F1  ,F2 ,Fs .Swpsegst 6  .4  )  .INTEGER  Nseg  .Ns  .Tns  .Log 

f lg,Logflags( 6  )  .COMPLEX  Eb( 20  ) . Ib( 20 > , Imb< 20  ) . Yb< 20  )  ,Anet ( 2  .2  ) 

4610  Swpsegst S  ,  1  )«F I 

4620  Swpsegst S  ,2 >“F2 

4630  Swpsegst S  ,3  )*Fs 

4640  Swpsegst 5  ,4  )*Ns 

4650  Logf lagst S  )=Logf lg 

4660  SUBEND  !  F2seg 

4670  ! 

4680  SUB  EntswptSS) 

4690  COM  /C/  REAL  F .W ,FI ,F2 ,Fs ,Swpsegst6  ,4  )  .INTEGER  Nseg .Ns .Tns .Log 

fig  .Logf lags< 6  )  .COMPLEX  Eb(20  ) ,  Ib( 20  ) . Imb< 20  )  .Yb( 20  )  .Anet ( 2 .2 > 

4700  CALL  EntinttS$&“SWEEP  TYPE  (0-LINEAR,  1 =L0G  )  “  .Logf lg  ) 

4710  CALL  EntreaKSS&TIRST  FREQUENCY  tHz)",F1> 

4720  CALL  Enireal < SS&*LAST  FREQUENCY  (Hz)“.F2> 

4730  SELECT  Logflg 

4740  CASE  0  !  LINEAR  SWEEP 

4750  CALL  EntreaK  S$&’STEP  FREQUENCY  tHz)",Fs) 

4760  IF  Fs*=0  THEN 

4770  CALL  Ent int < S$& "NUMBER  OF  STEPS"  .Ns) 

4780  Fs=( F2-F1  )/<  N-1  > 

4790  ELSE 

4800  Ns-( (F2-F1  )/Fs  )+l 

4810  END  IF 

4820  CASE  1  !  LOG  SWEEP 

4830  CALL  Ent int  t S$& "NUMBER  OF  STEPS", Ns) 

4840  Fs  =  ( F2/F1  )“( l/(Ns-1  ) ) 

4850  END  SELECT 

4860  SUBEND  !  Ent sup 

4870  ! 

4880  SUB  Compinb< INTEGER  Bi ) 

4890  COM  /N/  GPathl  .Net f i Ie$[ 20 ] ,Cmnt$( 2  )[ 80 ]  ,Br$( 20  )[ 6 ]  . INTEGER  Nb 


.REAL  R( 20  )  ,L(20)  ,C(20  )  ,Clk$[80I 

4900  COM  /C/  REAL  F  ,W  ,F 1  ,F2 ,Fs .Supsegs ( 6  ,4  ) ,  INTEGER  Nseg  , Ns , Tns  .Log 

flg.Logf lags(6  )  .COMPLEX  Eb( 20  ) , Ib( 20 ) ,Inb( 20  )  ,Yb< 20  )  ,Anet ( 2  ,2  ) 


4910 

INTEGER  Ps.Pp.Py.Pz 

4920 

REAL  Xr.Xi 

4930 

Ps-POS<Br$(Bi ) ,“S" ) 

4940 

Pp*POS(Br$(Bi ),*P" ) 

4950 

Pz-POS(Br$<Bi ) ,"Z"  ) 

4960 

Py=P0S<  Br$( Bi  ),“Y"  ) 

4970 

Pr-POS(Br$(Bi  ),"R"  ) 

4980 

PI “P0S( Br$( Bi  ) , "L"  ) 

4990 

Pc“P0S< Br$( Bi  )  ,"C"  ) 

5000 

Xr-0 

5010 

Xi=0 

5020 

W-(PI+PI  )*F 

5030 

IF  Pz<>0  THEN 
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5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
i  ) 

5150 

5160 

5170 

5180 

.REAL  R( 20  > , 
5190 

fig ,Logf lags 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

.REAL  R( 20  ) , 
5450 

fig ,Logf lags 

5460 

5470 

5480 

5490 

5500 

5510 

5520 


IF  Pr<>0  THEN  Xr*R(Bi > 

IF  P1O0  THEN  Xi-Xi+W*L<Bi > 

IF  Pc<>0  THEN  Xi=Xi-1 /<  W*C( Bi  )  ) 

END  IF 

IF  Py <>0  THEN 

IF  Pr<>0  THEN  Xr=1/R(Bi > 

IF  P1O0  THEN  Xi-Xi-1  /f  U*L<  Bi  )  ) 

IF  Pc<>0  THEN  Xi*Xi+W*C( Bi  ) 

END  IF 

Inb( Bi  )*CMPLX(Xr  .Xi  ) 

IF  (Ps<>0  AND  Py<>0)  OR  <Pp<>0  AND  Pz<>0)  THEN  Inb< Bi  )- 1 / Inb( B 

SUBEND  !  Compimb£DIT4530 
! 

SUB  Cascade 

COM  /N/  ©Path!  ,Netfile$[20] ,Cmnt$< 2  )C 80 1  ,Br$(20)t6]  .INTE6ER  Nb 
L(20),C(20),Clk$£80] 

COM  /C/  REAL  F ,U ,F1  ,F2 ,Fs ,Su)psegs( 6  ,4  )  .INTEGER  Nseg ,Ns ,Tns .Log 
( 6  )  .COMPLEX  £b<  20  ) , Ib<  20 ) . Imb<  20 ) , Yb( 20  >  ,Anet (2.2) 

INTEGER  I 

Anet(  1  . 1  )*CMPLX<  1,0) 

Anet ( 1  .2  )=CMPLX<0  ,0  > 

Anet  ( 2 , 1  )=Anet< 1  .2) 

Anet ( 2 ,2  )*Anet< 1.1) 

FOR  I=Nb  TO  1  STEP  -1 
CALL  Conpimb< I  ) 

SELECT  Br$(I  )[ 1,1) 

CASE  "T"  ,“X“ 

Anet<  1  ,1  )*=Anet(  1  , 1  >/R(  I  ) 

Anetd  ,2)-Anet(1  ,2>/R(I) 

Anet <2,1  )-Anet(2.1  )*R(I  ) 

Anet <  2  ,2  )*Anet (  2  .2  >*R( I  ) 

CASE  *S" 

Anet( 1  .1  )«Anet<  1  .1  >+Inb< I  )*Anet(2,l  > 

Anet < 1  ,2  >-Anet< 1  ,2 )+Imb< I >*Anet(2  ,2  ) 

CASE  "P" 

Anet (2,1  )*Anet<2,1  >+Inb(I  )*Anet( 1,1) 

Anet (2 ,2 )-Anet<2 ,2 )+Inb< I  )*Anet< 1  .2) 

END  SELECT 
NEXT  I 

SUBEND  !  Cascade 
! 

SUB  Compeiy 

COM  /N/  ©Pathl  .Net fileSC20) ,Cnnt*(2  )C80)  ,Br$(20)C6]  .INTEGER  Nb 
L(20).C(20),C11;$[80) 

COM  /C/  REAL  F, W, FI ,F2,Fs, Supsegs(6, 4). INTEGER  Nseg ,Ns ,Tns .Log 
(6  )  .COMPLEX  Eb<20)  ,Ib(20) ,Inb(20) ,Yb(20> .Anet <2 .2 ) 

INTEGER  I  ,In1 
Yb(  Nb  )=CMPLX<  0  ,0  ) 

Ib<  Nb )“Yb<  Nb  ) 

Eb(Nb )-CMPLX( 1 .0) 

FOR  I*=Nb  TO  I  STEP  -1 
Ini *1-1 

CALL  Compimb( I ) 
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5530 

5540 

5550 

55G0 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 


SELECT  Br$<  I  >C  1  .13 
CASE  "T”  ,"X“ 

Eb( Ini  )»Eb( I )/R( I  ) 

Ib( Ini )=Ib( I  )»R( I  > 

CASE  “S“ 

Eb< Ini )=Eb< I >+Ib< I  )*Inb< I  ) 
I b ( Ini  )=Ib( I  ) 

CASE  "P“ 

Eb( Ini  >=Eb( I  ) 

Ib< Ini  )=Eb< I )• Inb( I >+Ib<  I  ) 
END  SELECT 
NEXT  I 

SUBEND  I  Conpeiy 


5670  SUB  Prth 

5680  COM  /N/  @Pat hi  ,Netfile$C203 ,Cnnt$( 2  >C  80]  ,Br$<  20  >t  6 ]  .INTEGER  Nb 

.REAL  R<20),L<20),C(20>,Clk$C80] 

5690  COM  /Lj/  Lf SC  1 3 ,Cr$C I  3  ,Ff$t  3 3  .EscSC 1  1  .Portraits! 6  1  .LandscaqpeS 

C63,FontS(4)C80  3  .INTEGER  Psc  .Page  .Npages  .Font  nun 


5700 

5710 

5720 

5730 

5740 

( Npages ) 

S750 

5760 

5770 

(  I  ) 

5780 
(2  > 

5790 

5800 

5810 

5820 

5830 


IF  Page>0  THEN 

IF  Npages=0  THEN 

PRINT  ClkSCI  ,6  1  +  1 0*(  F>2  )  38>  ” PAGE  ‘&VAL$< Page > 

ELSE 

PRINT  ClkSCI  ,5S+10*(F>2  )]8>"PAGE  ‘8,UAL$<  Page  >&*  OF  "&UALS 

END  IF 
END  IF 

IF  NOT  <  Cmnt$< 1  )[ 1  ,1 3*"  “  OR  LEN( CnntSC 1  )  )“0  )  THEN  PRINT  CnntS 
IF  NOT  (Cnnt$(2)C1  ,U-"  "  OR  LEN(  CnntSC  2  )  )»0 )  THEN  PRINT  CnntS 
PRINT 

SUBEND  !  Prth 


5820  SUB  Prtnet 

5830  COM  /N/  ©Pathl  .Net f i le$t 203 ,Cnnt$( 2 )C 80 1  ,Br$(20)I6] .INTEGER  Nb 

.REAL  R(20).L(20),C(20>.ClkSC80] 

5840  COM  /Lj/  Lf$C I] ,CrSC I ] ,Ff$C3]  .EscSC 1 ]  .Portrai t$C 6  1  .LandscaqpeS 

C6]  ,Font$( 4 )[ 80 3  .INTEGER  Psc  .Page  .Npages  .Font nun 
5850  INTEGER  I 

5860  Fnt 1 :  IMAGE  "BR  TYPE  R  (KOHM)  L  (nH>  C 

<  nF  )  TURNS  RATI0<S/P)" 


5870  Fnt2: 
5880  Fnt3: 
5890  Fnt 4 : 
5900  Fnt5 : 
5910  Fnt6 : 
5920  Fnt 7: 
5930 
5940 
5950 
5960 
5970 
5980 


IMAGE  DD.3X.AAAAAA.il 
IMAGE  6X  .DDDDD . DDDDD , t 

IMAGE  M  - "  ,# 

IMAGE  4X  .DDDDD. DDDDD  , II 

IMAGE  4X  - ■  ,# 

IMAGE  “PRINTING  PAGE  ",K."  OF  *  ,K 
IF  Psc-9  THEN 
Fontnun*3 
ELSE 

Fontnum=0 
ENO  IF 

CALL  Preprint 
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5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6 1 30 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 


Page**  1 
Npages=1 
CALL  Prth 

IF  PscOCRT  THEN  OUTPUT  CRT  USIN6  Fmt7 iPage  .Npages 
PRINT  USING  Fmtl 
FOR  1-1  TO  Nb 

PRINT  USING  Fmt2  i 1  ,Br$( I > 

IF  P0S(Br$( I )  ,“R"  )<>0  THEN 

PRINT  USING  Fmt3;R( I >* 1 .E-3 
ELSE 

PRINT  USING  FmU 
END  IF 

IF  P0S<  BrS ( I ) ,"L" ><>0  THEN 
PRINT  USING  Fmt3  ?L( I  )• 1 . E+3 
ELSE 

PRINT  USING  Fmt4 
END  IF 

IF  P0S(BrS(  1  )  ,*C"  X>0  THEN 
PRINT  USING  Fmt3?C( I  )* 1 .E+9 
ELSE 

PRINT  USING  Fmt4 
END  IF 

IF  POS(Br$(  I  ),"T"  ><>0  OR  P0S(  Br$(  I  ) ,  “X"  >O0  THEN 
PRINT  USIN6  F  m  1 5 ;  R  ( I  ) 

ELSE 

PRINT  USING  Fnt6 
END  IF 
PRINT 
NEXT  I 

CALL  Postprint 
SUBEND  !  Prtnet 

l 


6310  SUB  Prtrat 

6320  COM  /N/  ®Path1  ,Netfile$[20]  ,Cmnt$<2 >1801  ,Br$(20>[6] .INTEGER  Nb 

.REAL  R(20).L(20).C<20).Clk$C80] 

6330  COM  /C/  REAL  F  ,W  ,F 1  ,F2  ,Fs ,Supsegs< 6  ,4 > , INTEGER  Nseg  .Ns  ,Tns  .Log 

fig  .Logf lags<  6  )  .COMPLEX  Eb< 20 > , Ib< 20 > .  Imb< 20  ) , Yb( 20  )  ,Anet < 2  .2  ) 

6340  COM  /Lj/  Lf$Ul  ,Cr$C  1  I  ,Ff*C31  ,Esc$[  11  .Portraits! 6  1  .Landscaqpe* 

[ 6 1  ,Font$<  4  >[ 80 1  .INTEGER  Psc  .Page  .Npages  .Font nun 
6350  INTEGER  I.K.S.Md.ImJ 

6360  REAL  Zm  ,Za  ,Rm  ,Ra  ,Np 

6370  COMPLEX  T 

6371  !  Addition  by  Mitch  Bolling  to  store  data  for  plotting  by  PLOTTER 

6372  1  program  -  Dec  19B8. 

6373  INTEGER  Nbytes  .Numrec 
6574  REAL  Npts 

6380  Fmtl:  IMAGE"  «  FREQ(H2)  EOUT/EIN(dB)  E0UT/EIN( DEG )  Z INMAG( K 

OHM)  ZINANG<  DEG  )" 

6390  Fmt2:  IMAGE  ODD  ,5( 2X  .DDDDDDDD.DDO  ) 

6400  Fmt3:  IMAGE  "PRINTING  PAGE  ",K."  OF  " ,K 

6401  I 


6403  !  plot  patch  ••• 

6404  Askplot:  INPUT  “Do  you  wish  to  create  a  PLOTTER  file?  <Y/N)  '.Plot* 

6405  Pf lag-0 
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6406 

6407 

6408 

6409 

6410 
64 1  1 
6412 
6414 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 

6520 

6521 

6522 

6523 

6524 

6526 

6527 

6528 

6529 
6531 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 


IF  <  Plots*" Y"  OR  Plots*" y"  )  THEN 
P  flag* 1 
ELSE 

IF  PlotS<>“N’  AND  PlotSO'n"  THEN  Askplot 
END  IF 

{ 

I 

IF  Psc*9  THEN 
Fontnun-3 
ELSE 

Fontnun*0 
END  IF 

CALL  Preprint 
Page*1 

Np*Tns/( 10+35*<Psc*2 )+55*(  Psc*9 ) ) 

IF  Np< 1  THEN  Np*1 
Npages-INT ( Np  ) 

IF  Np  MOD  NpagesO0  THEN  Npages=Npages+ 1 
K*1 

!  «**  plot  patch  *** 

! 

IF  Pf lag  THEN 
Npt  5*0 

FOR  1*1  TO  Nseg 
CALL  Seg2f< I  ) 

Npta-Npta+Ns 
NEXT  I 

Nby tes*< INT< <Npts*2*8 >/2S6 >+1 )*256 

ASSIGN  ©Buffer  TO  BUFFER  INbytes  ]  tFORMAT  OFF 

Num_rec  =  INT(  ( (  2*Npts+1  >«8>/820> 

IF  <<<2«Npts+1  )*8>  MOD  8200  )  00  THEN  Num_rec*Num__rec  + 1 
INPUT  "Enter  the  file  name  for  the  Plot'.  ",Pfile$ 
CREATE  BOAT  Pf i le$  ,Nun_rec ,8200 
ASSIGN  @Path_1  TO  PfileS 
OUTPUT  @Path_l iNpts 

TRANSFER  ©Buffer  TO  @Path_1 »COUNT  < Npts*2»8 )  .CONT 
END  IF 


FOR  S*1  TO  Nseg 
CALL  Seg2f ( S  ) 

F-F1 

FOR  1-1  TO  Ns 
Ini *1-1 

Md=K  MOD  ( 10  +  40»(Psc  =  2 )+55*(Psc  =  9) ) 

IF  Md* I  THEN 
CALL  Prth 

IF  PscOCRT  THEN  OUTPUT  CRT  USING  Fnt3 ; Page  .Npages 
PRINT  USING  Fnt  1 
Page-Page+1 
END  IF 

CALL  Conpeiy 
T*Eb<  0  )/Ib( 0  ) 

RecZpol  ( REAL<  T > ,IMAG( T  > ,Zn  ,Za  ) 

T-Eb(Nb  )/Eb( 0 ) 
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6690 
6700 
S70 1  ! 

6703  ! 

6704 

6705 
6707 

6709  ! 

6710  ! 

671 1 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 

6900 

6901  ! 

6903  ! 

6904 

6905 

6906 

6907 

6908  ! 


Rec2pol<REAL<T > ,IMAG(T  )  ,Rn  ,Ra > 

PRINT  USING  Fnt2  ;K  ,F ,FNDb<  Rn  >  ,Ra  ,  1 .E-3»Zm,Za 

*«*  plotter  patch  *** 

IF  Pf lag  THEN 

OUTPUT  ©Buf fertF ,FNDb< Rm ) 

ENO  IF 


IF  Logflg  THEN 
F=F*Fs 
ELSE 

F=F+Fs 
ENO  IF 

IF  K  MOO  5=0  THEN 
PRINT 
UAIT  .5 
END  IF 
IF  Md=0  THEN 

IF  Psc-CRT  THEN 
CALL  Continue 
ELSE 

OUTPUT  Psc ;Ff  $  5 
WAIT  1 
END  IF 
ENO  IF 
K=h'+ 1 
NEXT  I 
NEXT  S 

***  plotter  patch 

CONTROL  ©Buffer  ,9j0 
UAIT  FOR  EOT  @Path_l 
ASSIGN  @Path_l  TO  * 

ASSIGN  ©Buffer  TO  * 


6909  1 

6910  CALL  Postprint 

6920  SUBEND  !  Prtrat 

6930  ! 

6940  SU8  Prtanet 

6950  COM  /N/  ©Pathl  ,Netfile$C20]  ,Cnnt$<2 >1801  ,Br$<20)C6]  .INTEGER  Nb 

.REAL  R<20).L(20).C(20),Clk*[80] 

6960  COM  /C/  REAL  F  ,W  ,F 1  ,F2  ,Fs .Swpsegs ( 6  ,4  )  , INTEGER  Nseg  .Ns  ,Tns  .Log 

fig  ,Logf lags(6  )  .COMPLEX  Eb<20>  ,Ib<20  )  ,  Imb<  20  >  ,Yb<  20  )  .Anet  <  2  ,2  ) 

6970  COM  /Lj/  Lf St M ,Cr* t I  I ,Ff SC  3 1 ,Esc$t 1 1  .Portrai t S C 6 ]  .LandscaqpeS 

161  , Font* ( 4  )[ 80  1  .INTEGER  Psc  .Page  .Npages  .Font nun 
6980  DIM  SSI 80 1 

6990  INTEGER  I. Indx.S.Md. Ini  .J.K 

7000  REAL  Xn  ,Xa  ,Xr  ,Xi ,Np 

7010  COMPLEX  T 

7020  Fntl:  IMAGE  "F(Hz)  =  " ,2X  .DDODDDD.OD , "  MAG  ANG(DEG) 

REAL  I MAG" 

7030  Fmt2:  IMAGE  14X,"At" ,0,"  ,0,“]" ,4(2X  .SO.DDDDDESZZ  ) 
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7040 

7050 

70S0 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

.REAL 


Fmt3:  IMAGE  "PRINTING  PAGE  ",K,“  OF  “  ,K 

IF  Psc-9  THEN 
Fontnun=3 
ELSE 

Fontnun-0 
END  IF 

CALL  Preprint 
Page= 1 

Np=Tns/<3+8*(P5c=2)+12*(Psc=9)) 

Npages=INT ( Np  ) 

IF  Np  MOD  Npages<>0  THEN  Npages=Npages+ 1 
Ind.x*  1 

FOR  S-l  TO  Nseg 
Seg2f(S) 

F-F1 

FOR  1-1  TO  Ns 

Md-Indx  MOD  < 3+8*( Psc=2 >+ 1 2*< Psc=9  )  > 

IF  Md=1  THEN 
CALL  Prth 

IF  PscOCRT  THEN  OUTPUT  CRT  USING  Fmt3 ; Page  .Npages 
Page=»Page+I 
END  IF 

CALL  Cascade 
PRINT  USING  Fmtl ;F 
FOR  J-1  TO  2 
FOR  K-l  TO  2 

Xr**REAL<  Anet  ( J  ,K  ) ) 

X i- I MAGI Anet ( J  ,K >  > 

Rec2pol<  Xr  ,Xi  ,Xn,Xa> 

PRINT  USING  Fmt2;J,K,Xn,Xa,Xr,Xi 
NEXT  K 
NEXT  J 

IF  Logflg  THEN 
F«F*Fs 
ELSE 

F=F+F  s 
END  IF 

IF  Md-0  THEN 

IF  Psc-CRT  THEN 
CALL  Continue 
PRINT 
ELSE 

OUTPUT  Psc;Ff$i 
END  IF 
END  IF 
Indx-Indx+I 
NEXT  I 
NEXT  S 

CALL  Postprint 
SUBENO  !  Prtanet 
! 

SUB  Prtlev 

COM  /N/  @Pathl  .Net  f 1 le$t  20 )  ,Cnnt $( 2  )[ 80 ] ,Br$( 20 )t  B ] .INTEGER  Nb 
R(  20 ) ,L( 20  )  ,C( 20  )  .Cl K$[ 80  J 
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7570 

fig ,Logf lags( 
7580 

[63  ,Font$<4  >[ 

7590 

7600 

7610 

7620  Fnt 1 : 
7630  Fnt2 : 

)  ZMAG<  KOHM  > 
7640  Fnt3: 
.DDDDD.DDD.2X 
7650  Fnt 4: 
.DDDDD.DDD 
7660  Fnt5 : 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
Zn ,  Za 
8000 
8010 
e020 

8030 

8040 


COM  /C/  REAL  F ,U ,F1  ,F2 ,Fs ,Swpsegs<6  ,4 >  .INTEGER  Nseg  ,Ns  ,Tns  .Log 
6  )  .COMPLEX  Eb( 20 ) ,Ib< 20 ) ,Inb( 20  )  ,Yb(20  )  ,Anet<2  .2  ) 

COM  /Lj/  Lf$C 1 3 ,Cr$[ 13 ,Ff$[33 ,Esc*[ 1 3  .Portrai t$C 6 3  .LandscaqpeS 
803  .INTEGER  Psc  .Page .Npages  .Fontnun 

INTEGER  Indx.I.J.S.Md.Inl  ,Lpi  ,Ipp 
REAL  En  ,Ea  ,In ,Ia  ,Zn ,Za ,Np 
COMPLEX  T 

IMAGE  "FREQ  (Hr  )  =  “  .K 

IMAGE  "  f  BRANCH  EMAG(U)  EANG(DEG)  IMAG(nA)  I ANG( DEG 
ZANG(DEG)" 

IMAGE  DD  ,2X .AAAAAA ,2X .DDDDDD.DDD  ,2X  .DDDDD.DDD  ,2X  .DDDDDD.DDD  ,2X 
.DDDDDD.DDD  ,2X  .DDDDD.DDD 

IMAGE  DD  ,2X  .AAAAAA  ,2X  .DDDDDD.DDD  ,2X  .DDDDD.DDD  ,2X .DDDDDD.DDD ,2X 

IMAGE  “PRINTING  PAGE  “,K."  OF  "  ,K 
IF  Psc=9  THEN 
Fontnun=3 
ELSE 

Fontnun=0 
END  IF 

CALL  Preprint 

Page=1 

Lpi=Nb+4 

Ipp=INT( < 14+42*<Psc=2  )+64*(Psc=9  )  >/Lpi  ) 

Np=Tns/Ipp 
Npages«INT<  Np  ) 

IF  Np  MOD  Npages<>0  THEN  NpBges*Npages+ 1 
Indx  = 1 

FOR  S  =  1  TO  Nseg 
CALL  Seg2  f ( S ) 

F=F1 

FOR  1=1  TO  Ns 

Md=(Indx  MOD  Ipp)+(Ipp=1> 

IF  Md= 1  THEN 
CALL  Pr th 

IF  PscOCRT  THEN  OUTPUT  CRT  USING  Fnt5 ! Page  .Npages 
Page=Page+ 1 
END  IF 

CALL  Conpeiy 
PRINT  USING  Fnt 1 ;F 
PRINT  USING  Fnt2 
FOR  J  =  0  TO  Nb 

Rec2pol(REAL(Eb( J  > ) , IMAG( Eb< J ) ) .En.Ea  > 

RecZpol ( REAL( I b <  J  > ) ,IMAG(  Ib(  J ) > . In , la ) 

IF  I b <  J  )<>CMPLX( 0,0)  THEN 
T=Eb( J  )/Ib( J ) 

Rec2pol(REAL(T  )  ,IMAG(T) .Zn.Za ) 

PRINT  USING  Fmt3 i J  ,Br$( J  )  .Em  ,Ea  ,  I . E+3« In  ,1a  ,  1 .E-3« 
ELSE 

PRINT  USING  Fnt4|J  ,Br$< J  )  .En.Ea  ,1 .E+3»In,Ia 
END  IF 
NEXT  J 

IF  Logflg  THEN 
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8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 


F=F*Fs 

ELSE 

F=F+Fs 
END  IF 

IF  Ipp=t  THEN  Md=0 
IF  Md=0  THEN 

IF  Psc=CRT  THEN 
CALL  Continue 
ELSE 

OUTPUT  Psc;Ff$; 
ENO  IF 
ELSE 
PRINT 
END  IF 
Indx=Indx+1 
NEXT  I 
NEXT  S 


8220  CALL  Postprint 

8230  SUBEND  !  Prtlev 

8240  ! 

8250  SUB  Entswpsegs 

8260  COM  /C/  REAL  F  ,W  ,F 1  ,F2  ,Fs  .Swpsegs ( 6  ,4  ) ,  INTEGER 

flg.Logflags(G)  .COMPLEX  Eb( 20 > , Ib< 20 > , Imb< 20 > . Yb( 20 >  ,Anet ( 2  ,2 ) 

8270  INTEGER  S 

8280  DIM  SSI 80 1 

8290  Fntls  IMAGE  “SEGMENT  ‘.D.X.« 

8300  Tns=0 

8310  CALL  Entint< “NUMBER  OF  SWEEP  SEGMENTS “  ,Nseg  ) 

8320  FOR  S* 1  TO  Nseg 

8330  CALL  Seg2  f  <  S  ) 

8340  OUTPUT  SS  USING  FrttlsS 

8350  CALL  Entsup(SS) 

8360  Tns-Tns+Ns 

8370  CALL  F2seg<5) 

8380  NEXT  S 

8390  SUBENO  I  Entswpsegs 

8400  I 


Nseg  ,Ns  ,Tns  ,Log 
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